رنگ ها باعث جذابیت و زیبایی تصاویر می شوند . در ویژوال بیسیک به چند طریق می توان از رنگ ها استفاده کرد که عبارتند از :
1 – استفاده از ثوابت : ویژوال بیسیک ثوابتی برای رنگ ها دارد که در جدول زیر آمده اند :
مقدار
|
رنگ
|
ثابت
|
0
|
سیاه
|
Vbblack
|
1
|
آبی
|
Vbblue
|
2
|
لاجوردی
|
Vbcyan
|
3
|
سبز
|
Vbgreen
|
4
|
زرد
|
Vbyellow
|
5
|
سفید
|
Vbwhite
|
6
|
قرمز
|
Vbred
|
7
|
ارغوانی
|
Vbmagenta
|
2 – استفاده از تابع RGB : با استفاده از این تابع می توان یک رنگ را تولید کرد . تابع RGB به صورت زیر به کار می رود :
RGB (Red , Green , Blue)
پارامتر Red ، شدت رنگ قرم (درصد مقدار رنگ قرمر) ، پارامتر Green ، شدت رنگ سبز و پارامتر Blue شدت رنگ آبی را تعیین می کند . هر یک از پارامتر های Red , Green , Blue می توانند مقادیر 0 تا 256 را بپذیرند . پس در ویژوال بیسیک 256 * 256 * 256 (حدود 16 میلیون رنگ) را می تواند ایجاد کرد . به عنوان مثال ، دستورات زیر را در نظر بگیرید :
Dim Color1 As Long
Color1 = Rgb (225 , 100 , 170)
Form1 . Forecolor = Color1
این دستوارت ، رنگی را ایجاد کرده در خاصیت Forecolor فرم قرار می دهد.
3 – استفاده از تابع Qbcolor : برای تولید رنگ استفاده می شود و به صورت زیر به کار می رود :
Qbcolor (Qbcolor)
پارامتر Qbcolor عددی صحیح بین 0 تا 15 می باشد . لیست رنگ هاییی که تابع Qbcolor می تواند ایجاد کند در جدول زیر آمده است . به عنوان مثال ، دستورات زیر را در نظر بگیرید :
عدد
|
رنگ
|
0
|
سیاه
|
1
|
آّبی
|
2
|
سبز
|
3
|
لاجوردی
|
4
|
قرمز
|
5
|
ارغوانی
|
6
|
زرد
|
7
|
سفید
|
8
|
خاکستری
|
9
|
آبی روشن
|
10
|
سبز روشن
|
11
|
لاجوردی روشن
|
12
|
قرمز روشن
|
13
|
ارغوانی روشن
|
14
|
زرد روشن
|
15
|
سفید روشن (با شدت بالا)
|
Private Sub Squaredraw_Click ()
Form1 . Cls
Form1 . Scaleheight = 10
For I = 0 To 15
Form1 . Line (0 , I) – ((Form1 . Scalewidth) , I + 1) , Qbcolor (I) ,Bf
Next I
End Sub
این دستورات ، فرم را به 16 مستطیل رنگی تقسیم می کند (برای ایجاد رنگ ها از تابع Qbcolor استفاده شده است).
متد Point : رنگ نطقه ای از فرم یا عنصر Picturebox را بر می گرداند و به صورت زیر به کار می رود :
Point (X , Y) . نام عنصر
(X , Y) مختصات نقطه ای از فرم می باشد که رنگ آن باید تعیین گردد . به عنوان مثال ، دستو زیر رنگ نقطه ( 100 , 100)) را در متغیر Colorxy قرار می دهد :
Dim Colorxy As Long
Colorxy = Form1 . Point (100 , 100)
:: موضوعات مرتبط:
ویژوال بیسیک 6 (آموزشی) ,
,
|
امتیاز مطلب : 0
|
تعداد امتیازدهندگان : 0
|
مجموع امتیاز : 0